  10 :RETURN ;CLEAR ;LINE -70,40,0;A=RND (70)-70;B=RND (40);T=RND (2)×2-1;C=RND (2)×2;FOR Y=-40TO 40STEP C;LINE A,Y,T
  20 LINE 0,0,1;LINE 70,40,0;LINE -A,Y,T;LINE 0,0,1;LINE -70,-40,0;LINE A,Y,T;LINE 0,0,1;LINE 70,-40,0;LINE -A,Y,T;LINE 0,0,1
  30 LINE -70,40,0;NEXT Y;GOSUB 3000;CLEAR ;C=RND (2)×2;LINE -70,0,0;FOR Y=-40TO 40STEP C;LINE A,Y,1;LINE 0,0,1;LINE 70,0,0
  50 LINE -A,Y,1;LINE 0,0,1;LINE -70,0,0;NEXT Y;LINE 0,40,0;GOSUB 3000;C=RND (2)×2;FOR X=-70TO 70STEP C;LINE X,B,1;LINE 0,0,1;LINE 0,-40,0;LINE X,-B,1
  60 LINE 0,0,1;LINE 0,40,0;NEXT X;GOSUB 3000;CLEAR ;C=RND (2)×2;LINE -70,0,0;FOR Y=-40TO 40STEP C;LINE A,Y,1;LINE 70,0,0;LINE -A,Y,1
  70 LINE -70,0,0;NEXT Y;LINE 0,40,0;FOR X=-70TO 70STEP C;LINE X,B,1;LINE 0,-40,0;LINE X,-B,1;LINE 0,40,0;NEXT X
  80 BOX 0,0,1,80,1;BOX 0,0,140,1,1;GOSUB 3000;CLEAR ;FOR Z=1TO RND (50)+25;A=RND (80)-40;B=RND (80)-40;C=RND (5)×2+1;BOX A,B,C,C,3
 100 BOX A,-B,C,C,3;BOX -A,B,C,C,3;BOX -A,-B,C,C,3;BOX B,A,C,C,3;BOX -B,A,C,C,3;BOX B,-A,C,C,3;BOX -B,-A,C,C,3;NEXT Z;GOSUB 3000
 110 CLEAR 
 120 FOR Z=1TO RND (10)+10;A=RND ((40)-20)×2;B=RND ((40)-20)×2;XY=0;LINE A,B,1;XY=0;LINE -A,B,1;XY=0;LINE A,-B,1;XY=0;LINE -A,-B,1
 140 XY=0;LINE B,A,1;XY=0;LINE -B,A,1;XY=0;LINE B,-A,1;XY=0;LINE -B,-A,1;NEXT Z;GOSUB 3000;CLEAR ;FOR Q=1TO 3
 740 A=RND (80)-40;B=RND (80)-40
 750 LINE A,B,0;FOR M=0TO 60STEP 10;GOSUB 2000+M;LINE A,B,0;NEXT M
 760 LINE -A,B,0;FOR M=0TO 70STEP 10;GOSUB 2000+M;LINE -A,B,0;NEXT M
 770 LINE A,-B,0;FOR M=0TO 70STEP 10;GOSUB 2000+M;LINE A,-B,0;NEXT M
 780 LINE -A,-B,0;FOR M=0TO 70STEP 10;GOSUB 2000+M;LINE -A,-B,0;NEXT M
 790 LINE B,A,0;FOR M=0TO 70STEP 10;GOSUB 2000+M;LINE B,A,0;NEXT M
 800 LINE -B,A,0;FOR M=0TO 70STEP 10;GOSUB 2000+M;LINE -B,A,0;NEXT M
 810 LINE B,-A,0;FOR M=0TO 70STEP 10;GOSUB 2000+M;LINE B,-A,0;NEXT M
 815 LINE -B,-A,0;FOR M=0TO 70STEP 10;GOSUB 2000+M;LINE -B,-A,0;NEXT M
 820 GOSUB 3000;NEXT Q;GOSUB 3000;CLEAR ;FOR Q=1TO 2;FOR Z=1TO 80STEP 2;BOX 0,0,Z,Z,3;NEXT Z;FOR Z=79TO 1STEP -2;BOX 0,0,Z,Z,3
 890 NEXT Z;NEXT Q;FOR X=-70TO 70STEP RND (4);XY=0;LINE X,40,3;XY=0;LINE X,-40,3;NEXT X;FOR Y=-40TO 40STEP RND (4)
 940 XY=0;LINE 70,Y,3;XY=0;LINE -70,Y,3;NEXT Y;GOSUB 3000;CLEAR ;RUN 
2000 LINE -A,B,1;RETURN 
2010 LINE A,-B,1;RETURN 
2020 LINE -A,-B,1;RETURN 
2030 LINE B,A,1;RETURN 
2040 LINE -B,A,1;RETURN 
2050 LINE B,-A,1;RETURN 
2060 LINE -B,-A,1;RETURN 
2070 LINE A,B,1;RETURN 
3000 FOR Z=1TO 3000;NEXT Z
3010 BC=RND (256);FC=BC+4+RND (32)×8;RETURN 
RUN 
